
(define (port-valid? p)
  "Checks if port code is a valid port."
  ;; CL-Hurd checks whether p is a number,
  ;; and not whether it is an integer,
  ;; but I doubt the Hurd has fractional ports.
  (and (exact-integer? p)
       (> p 0)))

